5 POKE50913,1:POKE50959,1:POKE50918,0:POKE50964,0:POKE50923,0:POKE50969,0
10 POKE53281,6:PRINT"";:@3:@2
20 @4,20,50:@7,20,150,0
30 @4,300,50:@7,300,150,0
50 PH=(null)*3/4
60 FORJ=0TO31
70 AG=(null)*J/16
80 Y1%=COS(AG)*50+100:Y2%=COS(AG+PH)*50+100
90 @4,20,Y1%:@7,300,Y2%,0
100 NEXTJ
110 @4,0,0:@7,319,0,0:@7,319,199,0:@7,0,199,0:@7,0,0,0
115 FORI=0TO2500:NEXTI
120 PRINT"[147]PRINT TWIST PATTERN (Y/N)?":@1
130 GETC$:IF(C$="")GOTO130
140 IF(C$<>"Y")THENPRINT"[147]":END
150 @2:@14:PRINT"[147]":@1:END